home *** CD-ROM | disk | FTP | other *** search
/ MacWorld UK 2000 March / MW_UK_2000_03.iso / Shareware World / Utilities / Text Processing / Alpha / Tcl / SystemCode / BackCompatibility.tcl < prev    next >
Encoding:
Text File  |  1999-11-02  |  4.1 KB  |  113 lines  |  [TEXT/ALFA]
  1. # You should avoid calling any of these procs:
  2. # They are slower, and may be removed at some point in the future.
  3. # 
  4. # Some of these are currently called from Alpha's main menus.  This
  5. # will be changed in the future, so that this entire file can vanish.
  6.  
  7. # just wrappers around other procs
  8.  
  9. proc pushMark {} {pushPosition}
  10. proc popMark {} {popPosition}
  11. proc pushPosition {args} {uplevel placeBookmark $args}
  12. proc popPosition {args} {uplevel returnToBookmark $args}
  13. proc absolutePath {filename} {file::absolutePath $filename}
  14. proc openFileQuietly {filename} {
  15.     edit -c -w $filename
  16. }
  17. proc searchInFile {filename searchString {indices 0}} {
  18.     file::searchFor $filename $searchString $indices
  19. }
  20.  
  21. proc readFile {fileName} {file::readAll $fileName}
  22. proc writeFile {filename {text {}} {overwrite 0}} {
  23.     file::writeAll $filename $text $overwrite
  24. }
  25. proc gotoFileLine {fname line {mesg {}}} {
  26.     file::gotoLine $fname $line $mesg
  27. }
  28.  
  29. proc buildSubMenu {args} {
  30.     eval menu::buildHierarchy $args
  31. }
  32.  
  33. proc listSubfolders {folder {depth 3}} {
  34.     file::hierarchy $folder $depth
  35. }
  36.  
  37. proc getIncludeFiles {} { optClickTB_List }
  38. proc editIncludeFile {item} { optClickTB_Pick $item}
  39. proc tryElseDump {name script} {
  40.     try::level \#0 $script -reporting log -while $name
  41. }
  42. proc text::genericIndent {} { ::indentLine }
  43.  
  44. proc revertTheseFiles {flist} {eval file::revertThese $flist}
  45.  
  46. proc file::commentTextBlock {args} { eval comment::TextBlock $args }
  47. proc commentLine  {args} { uplevel 1 comment::Line $args }
  48. proc uncommentLine  {args} { uplevel 1 comment::undoLine $args }
  49. proc commentBox  {args} { uplevel 1 comment::Box $args }
  50. proc uncommentBox  {args} { uplevel 1 comment::undoBox $args }
  51. proc commentCharacters {args} { uplevel 1 comment::Characters $args }
  52. proc commentGetRegion  {args} { uplevel 1 comment::GetRegion $args }
  53. proc commentSameStart  {args} { uplevel 1 comment::SameStart $args }
  54. proc commentTextBlock  {args} { uplevel 1 comment::TextBlock $args }
  55. proc commentGetFillLines {args} { uplevel 1 comment::GetFillLines $args }
  56. proc commentParagraph  {args} { uplevel 1 comment::Paragraph $args }
  57. proc uncommentParagraph {args} { uplevel 1 comment::undoParagraph $args }
  58. proc fillParagraph {args} {uplevel 1 paragraph::fill $args}
  59. proc fillOneParagraph {args} {uplevel 1 paragraph::fillOne $args}
  60. proc paraStart {args} {uplevel 1 paragraph::start $args}
  61. proc paraFinish {args} {uplevel 1 paragraph::finish $args}
  62. proc sentenceParagraph {args} {uplevel 1 paragraph::sentence $args}
  63. proc selectParagraph {args} {uplevel 1 paragraph::select $args}
  64. proc addArrDef {args} { uplevel 1 prefs::addArrayElement $args }
  65. proc removeArrDef {args} { uplevel 1 prefs::removeArrayElement $args }
  66. proc addDef {args} {uplevel 1 prefs::add $args}
  67. proc removeDef {args} {uplevel 1 prefs::remove $args}
  68. proc readDefs {args} {uplevel 1 prefs::_read $args}
  69. proc writeDefs {args} {uplevel 1 prefs::_write $args}
  70. proc addArr {args} { uplevel 1 prefs::addArray $args }
  71. proc removeArr {args} { uplevel 1 prefs::removeArray $args }
  72. proc saveModifiedVars {args} { uplevel 1 prefs::saveModified $args }
  73. proc alpha::readUserDefs {} {uplevel 1 prefs::readAll}
  74. proc alpha::readUserPrefs {} {uplevel 1 prefs::tclRead}
  75. proc addUserLine {args} { uplevel 1 prefs::tclAddLine $args}
  76. namespace eval mode {}
  77. proc mode::addUserLine {args} {uplevel 1 prefs::tclAddModeLine $args}
  78. proc getSavedSettings {} {prefs::listAllSaved}
  79. proc removeSavedSetting {} {prefs::removeSavedSetting}
  80. proc viewSavedSetting {} {prefs::viewSavedSetting}
  81.  
  82.  
  83. proc upBrowse {} { browse::Up }
  84. proc downBrowse {} { browse::Down }
  85. proc gotoMatch {} { browse::Goto }
  86.  
  87. ########################################
  88. #                           #
  89. #    A few random lisp'ish functions.  #
  90. #                       #
  91. ########################################
  92.  
  93. proc car {l} {lindex $l 0}
  94. proc cadr {l} {lindex $l 1}
  95. proc caddr {l} {lindex $l 2}
  96. proc cadddr {l} {lindex $l 3}
  97. proc caddddr {l} {lindex $l 4}
  98. proc cdr {l} {lrange $l 1 end}
  99. proc cddr {l} {lrange $l 2 end}
  100.  
  101. proc mapcar args {return [eval map $args]}
  102.  
  103. proc map {func l} {
  104.     set out {}
  105.     foreach el $l {
  106.     lappend out [eval $func [list $el]]
  107.     }
  108.     return $out
  109. }
  110.  
  111. proc cons {e l} {concat [list $e] $l}
  112.  
  113.